home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
demo irq
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
808b
|
70 lines
10 LETC=PEEK(197)
11 IFX=1THEN440
12 IFX=2THEN560
20 IFB=CTHEN700
30 LETB=C
40 IFC=4THEN60
50 GOTO120
60 POKE198,5
70 POKE631,76
80 POKE632,73
90 POKE633,83
100 POKE634,84
110 POKE635,13
120 IFC=5THEN140
130 GOTO190
140 POKE198,4
150 POKE631,82
160 POKE632,85
170 POKE633,78
180 POKE634,13
190 IFC=3THEN210
200 GOTO300
210 POKE198,8
220 POKE631,76
230 POKE632,207
240 POKE633,34
250 POKE634,36
260 POKE635,34
270 POKE636,44
280 POKE637,56
290 POKE638,13
300 IFC=6THEN320
310 GOTO700
320 POKE198,10
330 POKE631,76
340 POKE632,207
350 POKE633,29
360 POKE634,29
370 POKE635,29
380 POKE636,29
390 POKE637,29
400 POKE638,29
410 POKE639,29
420 POKE640,29
430 LETX=1
435 GOTO700
440 POKE198,10
450 POKE631,29
460 POKE632,29
470 POKE633,29
480 POKE634,29
490 POKE635,29
500 POKE636,29
510 POKE637,29
520 POKE638,29
530 POKE639,29
540 POKE640,29
550 LETX=2
555 GOTO700
560 POKE198,7
570 POKE631,29
580 POKE632,29
590 POKE633,44
600 POKE634,56
610 POKE635,44
620 POKE636,49
630 POKE637,13
640 LETX=0
700 SYS59953